home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / checko1a / options.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1999-09-03  |  4.8 KB  |  150 lines
  1. VERSION 5.00
  2. Begin VB.Form frmOptions 
  3.    Caption         =   "Options"
  4.    ClientHeight    =   1995
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   1995
  10.    ScaleWidth      =   4680
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.Frame fraChkLstDir 
  13.       Caption         =   "Location of Checkout List File:"
  14.       Height          =   615
  15.       Left            =   120
  16.       TabIndex        =   5
  17.       Top             =   960
  18.       Width           =   4455
  19.       Begin VB.OptionButton optChkLstDir 
  20.          Caption         =   "Custom [...]"
  21.          Height          =   255
  22.          Index           =   2
  23.          Left            =   3000
  24.          TabIndex        =   8
  25.          ToolTipText     =   "Select custom directory"
  26.          Top             =   240
  27.          Width           =   1335
  28.       End
  29.       Begin VB.OptionButton optChkLstDir 
  30.          Caption         =   "App Directory"
  31.          Height          =   255
  32.          Index           =   1
  33.          Left            =   1560
  34.          TabIndex        =   7
  35.          ToolTipText     =   "Directory where .EXE resides"
  36.          Top             =   240
  37.          Width           =   1335
  38.       End
  39.       Begin VB.OptionButton optChkLstDir 
  40.          Caption         =   "Net Directory\.."
  41.          Height          =   255
  42.          Index           =   0
  43.          Left            =   40
  44.          TabIndex        =   6
  45.          ToolTipText     =   "Directory above network source directory"
  46.          Top             =   240
  47.          Width           =   1590
  48.       End
  49.    End
  50.    Begin VB.TextBox txtExtension 
  51.       Height          =   315
  52.       Left            =   3360
  53.       TabIndex        =   4
  54.       Text            =   ".vbw"
  55.       ToolTipText     =   "File extensions to ignore  (ex. '.vbw,.log')"
  56.       Top             =   480
  57.       Width           =   1215
  58.    End
  59.    Begin VB.CheckBox chkIgnore 
  60.       Caption         =   "Ignore Conflict files with extension(s):"
  61.       Height          =   555
  62.       Left            =   120
  63.       TabIndex        =   3
  64.       ToolTipText     =   "Specifies certain file extension(s) should not be reported if they conflict."
  65.       Top             =   360
  66.       Value           =   1  'Checked
  67.       Width           =   3075
  68.    End
  69.    Begin VB.TextBox txtMinutes 
  70.       Height          =   315
  71.       Left            =   1680
  72.       TabIndex        =   0
  73.       Text            =   "15"
  74.       ToolTipText     =   "Number of minutes to wait"
  75.       Top             =   48
  76.       Width           =   555
  77.    End
  78.    Begin VB.Label Label3 
  79.       Caption         =   "minutes"
  80.       Height          =   195
  81.       Left            =   2400
  82.       TabIndex        =   2
  83.       Top             =   120
  84.       Width           =   615
  85.    End
  86.    Begin VB.Label Label1 
  87.       Caption         =   "Check files every"
  88.       Height          =   255
  89.       Left            =   120
  90.       TabIndex        =   1
  91.       Top             =   120
  92.       Width           =   1455
  93.    End
  94. Attribute VB_Name = "frmOptions"
  95. Attribute VB_GlobalNameSpace = False
  96. Attribute VB_Creatable = False
  97. Attribute VB_PredeclaredId = True
  98. Attribute VB_Exposed = False
  99. Dim blnRunOptClick As Boolean
  100. Private Sub chkIgnore_Click()
  101.     frmCheckInOut.blnIgnoreExt = chkIgnore
  102. End Sub
  103. Private Sub Form_Load()
  104.     txtMinutes = frmCheckInOut.Minutes%
  105.     chkIgnore = Abs(frmCheckInOut.blnIgnoreExt)
  106.     txtExtension = frmCheckInOut.Extension$
  107.     blnRunOptClick = False
  108.     Select Case frmCheckInOut.ChkLstFileDir$
  109.     Case "<NetDir>\.."
  110.         optChkLstDir(0).Value = True
  111.     Case "<AppDir>"
  112.         optChkLstDir(1).Value = True
  113.     Case Else
  114.         optChkLstDir(2).Value = True
  115.     End Select
  116.     blnRunOptClick = True
  117. End Sub
  118. Private Sub Form_Unload(Cancel As Integer)
  119.     frmCheckInOut.Show
  120. End Sub
  121. Private Sub optChkLstDir_Click(Index As Integer)
  122.     If Not blnRunOptClick Then Exit Sub
  123.     Select Case Index
  124.     Case 0
  125.         frmCheckInOut.ChkLstFileDir$ = "<NetDir>\.."
  126.     Case 1
  127.         frmCheckInOut.ChkLstFileDir$ = "<AppDir>"
  128.     Case 2
  129.         frmCheckInOut.ChkLstFileDir$ = frmCheckInOut.GetDirectory & "\"
  130.         If Right$(frmCheckInOut.ChkLstFileDir$, 2) = "\\" Then
  131.             frmCheckInOut.ChkLstFileDir$ = Left$(frmCheckInOut.ChkLstFileDir$, Len(frmCheckInOut.ChkLstFileDir$) - 1)
  132.         End If
  133.     End Select
  134. End Sub
  135. Private Sub txtExtension_Change()
  136.     frmCheckInOut.Extension$ = txtExtension
  137. End Sub
  138. Private Sub txtMinutes_Change()
  139.     Static InChange As Boolean
  140.     If Not InChange Then
  141.         InChange = True
  142.         txtMinutes = Val(txtMinutes)
  143.         If Val(txtMinutes) < 1 Then
  144.             txtMinutes = 1
  145.         End If
  146.         InChange = False
  147.         frmCheckInOut.Minutes% = txtMinutes
  148.     End If
  149. End Sub
  150.